home *** CD-ROM | disk | FTP | other *** search
/ Digital News 3 / Digital_News_3_1988_-_de_Side_A.d64 / mars 64.start (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  218b  |  11 lines
  1. 5 ifa=0thena=1:load"mars 64.prg",8,1
  2. 10 a=1420+int(rnd(0)*1001)
  3. 20 poke704,a and 255
  4. 30 poke705,a/256
  5. 40 input "taktzyklen";a
  6. 50 a1=int(a/65536):a=a-a1*65536
  7. 60 a2=int(a/256):a=a-a2*256
  8. 70 a3=a
  9. 80 poke706,a3:poke707,a2:poke708,a1
  10. 90 sys4096
  11.